home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Show Attributes.xpl < prev    next >
Text File  |  2003-11-19  |  1KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Explorer\Settings"
  5. "NAME"="Show Attributes Column"
  6. "VERSION"="1.13"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0010100"
  9. "TEXT 1"="Show Attributes in Details View"
  10. "DESCRIPTION 1"=By default, Windows does not display the Attributes Column (Details View) in Explorer. With this setting you can get it back."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "CONTACTURL"="http://www.xteq.com/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Updated by CptSiskoX"
  15.  
  16.  
  17.  
  18. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowAttribCol"
  19. Sub Plugin_Initialize 
  20.  i=RegReadValue(sV1)
  21.  if i=1 then SetUIElement 1,true
  22. End Sub
  23.  
  24.  
  25. Sub Plugin_CheckData(ElementIndex)
  26. End Sub
  27.  
  28.  
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  b=GetUIElement(1)
  32.  if b=true then
  33.     Call RegWriteValue(sV1,"1",2)
  34.  else
  35.     if RegValueExists(sV1) then
  36.        Call RegDeleteValue(sV1)
  37.     end if
  38.  end if
  39.  
  40.  Call Logoff()
  41. End Sub
  42.  
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.  
  47.  
  48.  
  49.